Class IHE.Test.H09.H0908Rt Extends %RegisteredObject [ Language = objectscript ]
{

ClassMethod GetTestData() As %String
{
	s msg = ##class(IHE.Msg.H09.H0908Rt).%New()
	
    s msg.MsgID = "消息ID"
    s msg.CreateTime = "消息创建时间"
    s msg.ReceiverID = "接收者ID"
    s msg.SenderID = "发送者ID"
    s msg.AppInfoID = "申请单编号"
    s msg.AppInfoDetail = "申请单详细内容"
    s msg.ItemAppTime = "检查申请日期"
    s msg.ItemTypeCode = "检查类型编码"
    s msg.ItemTypeName = "检查类型名称"
    s msg.SpecimenNatural = "送检组织"
    s msg.SpecimenNaturalNumber = "12345"
    s msg.SpecimenNaturalUnit = "54321"
    
    s item = ##class(IHE.Msg.H09.DerivedSpecimen).%New()
    s item.SpecimenID = "标本条码号"
    s item.DerivedSpecimenPart = "取材部位"
    s item.DerivedSpecimenNumber = "取材数量"
    s item.DerivedSpecimenUnit = "取材数单位"
    d msg.DerivedSpecimen.Insert(item)
    d msg.DerivedSpecimen.Insert(item)
    d msg.DerivedSpecimen.Insert(item)
    
    s msg.Fixative = "固定液"
    s msg.CaptureTime = "采集日期"
    s msg.SubmitUserID = "送检医师ID"
    s msg.SubmitUserName = "送检医师姓名"
    s msg.AuthorTime = "开单时间"
    s msg.AuthorID = "开单医生工号"
    s msg.AuthorName = "开单医生姓名"
    s msg.AuthorDeptCode = "申请科室编码"
    s msg.AuthorDeptName = "申请科室名称"
    s msg.ConfirmTime = "确认时间"
    s msg.ConfirmUserID = "确认医生工号"
    s msg.ConfirmUserName = "确认人姓名"
    s msg.CaseSummary = "病历摘要及手术所见"
    
    s item = ##class(IHE.Msg.H09.Item).%New()
    s item.ItemCode = "检查类项目编码"
    s item.ItemName = "检查项目名称"
    s item.ItemFunctionCode = "检查方式编码"
    s item.ItemFunctionName = "检查方式名称"
    s item.ItemPartCode = "检查部位编码"
    s item.ItemPartName = "检查部位名称"
    s item.ServiceTime = "执行时间"
    s item.ServiceDeptCode = "执行科室编码"
    s item.ServiceDeptName = "执行科室名称"
    d msg.Component2.Insert(item)
    d msg.Component2.Insert(item)
    d msg.Component2.Insert(item)
    
    s msg.Notices = "注意事项"
    s msg.VisitNum = "123"
    s msg.AdmID = "就诊流水号"
    s msg.AdmTypeCode = "就诊类别编码"
    s msg.AdmTypeName = "就诊类别名称"
    s msg.DomainId = "域ID"
    s msg.PatientID = "患者ID"
    s msg.OutpatientId = "门（急）诊号标识"
    s msg.HospitalizationId = "住院号标识"
    s msg.IDCardNo = "患者身份证号"
    s msg.MedicalInsuranceCard = "医保卡号"
    s msg.PatientName = "患者姓名"
    s msg.PatientTelecom = "患者电话"
    s msg.PatientGenderCode = "性别代码"
    s msg.BirthTime = "出生日期"
    s msg.PatientAge = "年龄"
    s msg.PatientAddr = "地址"
    s msg.BedCode = "病床编码"
    s msg.BedNumber = "病床号"
    s msg.RoomCode = "病房编号"
    s msg.RoomNumber = "病房号"
    s msg.DeptCode = "科室编码"
    s msg.DeptName = "科室名称"
    s msg.InpatientAreaId = "病区编码"
    s msg.InpatientAreaName = "病区名称"
    s msg.DiagnosisTypeCode = "诊断类别编码"
    s msg.DiagnosisTypeName = "诊断类别名称"
    s msg.DiagnosisTime = "诊断日期"
    s msg.DiseaseCode = "疾病编码"
    s msg.DiseaseName = "疾病名称"

    d msg.XMLExportToString(.xmlStr, $p($ClassName(),".",4))
    w !,xmlStr
    q xmlStr
}

}
